home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / zung2l.z / zung2l
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. ZZZZUUUUNNNNGGGG2222LLLL((((3333FFFF))))                                                          ZZZZUUUUNNNNGGGG2222LLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      ZUNG2L - generate an m by n complex matrix Q with orthonormal columns,
  10.  
  11. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  12.      SUBROUTINE ZUNG2L( M, N, K, A, LDA, TAU, WORK, INFO )
  13.  
  14.          INTEGER        INFO, K, LDA, M, N
  15.  
  16.          COMPLEX*16     A( LDA, * ), TAU( * ), WORK( * )
  17.  
  18. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  19.      ZUNG2L generates an m by n complex matrix Q with orthonormal columns,
  20.      which is defined as the last n columns of a product of k elementary
  21.      reflectors of order m
  22.  
  23.            Q  =  H(k) . . . H(2) H(1)
  24.  
  25.      as returned by ZGEQLF.
  26.  
  27.  
  28. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  29.      M       (input) INTEGER
  30.              The number of rows of the matrix Q. M >= 0.
  31.  
  32.      N       (input) INTEGER
  33.              The number of columns of the matrix Q. M >= N >= 0.
  34.  
  35.      K       (input) INTEGER
  36.              The number of elementary reflectors whose product defines the
  37.              matrix Q. N >= K >= 0.
  38.  
  39.      A       (input/output) COMPLEX*16 array, dimension (LDA,N)
  40.              On entry, the (n-k+i)-th column must contain the vector which
  41.              defines the elementary reflector H(i), for i = 1,2,...,k, as
  42.              returned by ZGEQLF in the last k columns of its array argument A.
  43.              On exit, the m-by-n matrix Q.
  44.  
  45.      LDA     (input) INTEGER
  46.              The first dimension of the array A. LDA >= max(1,M).
  47.  
  48.      TAU     (input) COMPLEX*16 array, dimension (K)
  49.              TAU(i) must contain the scalar factor of the elementary reflector
  50.              H(i), as returned by ZGEQLF.
  51.  
  52.      WORK    (workspace) COMPLEX*16 array, dimension (N)
  53.  
  54.      INFO    (output) INTEGER
  55.              = 0: successful exit
  56.              < 0: if INFO = -i, the i-th argument has an illegal value
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.